home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
Z-Misc Series
/
(k)zh.d64
/
func.choice
< prev
next >
Wrap
Text File
|
2007-03-01
|
861b
|
38 lines
0010 // ─┼╠┼╘┼ "FNC.CHOICE"
0020 // ╠╔╙╘ "FNC.CHOICE"
0030
0040 // ╘HIS FUNCTION ALLOWS THE USER
0050 // TO INPUT CHARACTERS FROM KEY-
0060 // BOARD CHOOSING FROM ANSWER$.
0070 // ╘HE FUNCTION HAS ITS OWN
0080 // CURSOR AND REACTS ON INCORRECT
0090 // INPUT WITH BELL(1).
0100
0110 //
0120 // ┼XAMPLE OF USE:
0130 //
0140 // ╨╥╔╬╘ "╘YPE 1-4,[RET] ",
0150 // A$:=CH$("1234"+CHR$(13))
0160 //
0170
0180 ╞╒╬├ CH$(ANSWER$) ├╠╧╙┼─
0190 ╒╙┼ SYSTEM
0200 P$:=├╚╥$(191)
0210 ╥┼╨┼┴╘
0220 ╥┼╨┼┴╘
0230 ╨╥╔╬╘ ""18"",P$,""146""157"",
0240 R$:=╦┼┘$
0250 ╨╥╔╬╘ P$,""157"",
0260 ╒╬╘╔╠ R$<>""0""
0270 OK:=R$ ╔╬ ANSWER$
0280 ╔╞ ╬╧╘ OK ╘╚┼╬ BELL(1)
0290 ╒╬╘╔╠ OK
0300 ╨╥╔╬╘ R$
0310
0320 // ╨╥╔╬╘ R$,
0330 // ╒SE THIS LINE FOR REPEATED
0340 // INPUT OF SELECTED CHARACTERS.
0350
0360 ╥┼╘╒╥╬ R$
0370 ┼╬─╞╒╬├ CH$